home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Folders.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  1.7 KB  |  69 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {}
  4. {Created: Sunday, January 6, 1991 at 10:43 PM}
  5. {    Folders.p}
  6. {    Pascal Interface to the Macintosh Libraries}
  7. {}
  8. {        Copyright Apple Computer, Inc.    1989-90}
  9. {        All rights reserved}
  10. {}
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17.  
  18. unit Folders;
  19. interface
  20.     uses
  21.         Types, OSUtils, Files;
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.     const
  39.         kOnSystemDisk = $8000;
  40.  
  41.         kCreateFolder = TRUE;
  42.         kDontCreateFolder = FALSE;
  43.  
  44.         kSystemFolderType = 'macs';             {the system folder}
  45.         kDesktopFolderType = 'desk';            {the desktop folder; objects in this folder show on the desk top.}
  46.         kTrashFolderType = 'trsh';              {the trash folder; objects in this folder show up in the trash}
  47.         kWhereToEmptyTrashFolderType = 'empt';  {the "empty trash" folder; Finder starts empty from here down}
  48.  
  49.         kPrintMonitorDocsFolderType = 'prnt';   { Print Monitor documents }
  50.  
  51.         kStartupFolderType = 'strt';            {Finder objects (applications, documents, DAs, aliases, to...) to open at startup go here}
  52.         kAppleMenuFolderType = 'amnu';          {Finder objects to put into the Apple menu go here}
  53.         kControlPanelFolderType = 'ctrl';       {Control Panels go here (may contain INITs)}
  54.         kExtensionFolderType = 'extn';          {Finder extensions go here}
  55.  
  56.         kPreferencesFolderType = 'pref';        {preferences for applications go here}
  57.         kTemporaryFolderType = 'temp';          {temporary files go here (deleted periodically, but don't rely on it.)}
  58.  
  59.     function FindFolder (vRefNum: INTEGER; folderType: OSType; createFolder: BOOLEAN; var foundVRefNum: INTEGER; var foundDirID: LONGINT): OSErr;
  60.     inline
  61.         $7000, $A823;
  62.  
  63.     { UsingFolders }
  64.  
  65.  
  66. implementation
  67. end.
  68.  
  69.